﻿Module Module1
  Sub Main()

    Dim nl As String = Environment.NewLine
    Dim testo As String = _
        "Nuovo libro su VB"
    Dim caratteri(testo.Length) As Char
    testo.CopyTo(0, caratteri, 0, testo.Length)
    Dim messaggio As String = ""
    For i As Integer = 0 To testo.Length - 1
      messaggio &= caratteri(i) & "-"
    Next
    Console.WriteLine(messaggio)

    Console.WriteLine()

    Dim stringa As String
    stringa = String.Concat(caratteri)
    Console.WriteLine(stringa)
    Console.ReadLine()

  End Sub
End Module
